COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PIXTST"
C00004 ENDMK
C⊗;
BEGIN "PIXTST"
REQUIRE "VIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER SIZE,W;
OUTSTR("WINDOW SIZE:"); INIWIN(W←CVD(INCHWL));
SIZE←PFLDIM("TST.PIC");
OUTSTR("SIZE= "&CVS(SIZE)&'15&'12);
 BEGIN
 INTEGER ARRAY PIC,PIC1[0:SIZE-1];
 INTEGER HIG,WID,I,J;
 OUTSTR("READING ");
 GETPFL("TST.PIC",PIC[0]);
 OUTSTR("DONE"&'15&'12);
 DDINIT; SCREEN(-1,-1,1,1); DRKEN; RECTAN(-1,-1,1,1); LITEN;
 HAFTON(-1,-1,1,1,PIC[0]); FOR I←1,2,3 DO DPYUP('31);
 WID←PIC[LNBY]; HIG←PIC[PCLN];
 OUTSTR("WID "&CVS(WID)&" HIG "&CVS(HIG)&'15&'12);
 COMMENT
 FOR I←HIG%3 STEP 1 UNTIL 2*HIG%3 DO
 FOR J←WID%3 STEP 1 UNTIL 2*WID%3 DO
     PUTEL(PIC[0],I,J,15-PIXEL(PIC[0],I,J));
 IF W≠0 THEN PASSHI(PIC[0],PIC1[0]) ELSE CLEAN(PIC[0]);
 FOR I←PIC[BYBI]-1 STEP -1 UNTIL 0 DO
  BEGIN
  DRKEN; RECTAN(-1,-1,0,1);
  VIDEO(-1,-1,0,0,PIC[0],2↑I);
  VIDEO(-1,1,0,0,PIC[0],2↑I);
  INVEN; RECTAN(-1,1,0,0);
  IF W≠0 THEN
   BEGIN
   DRKEN; RECTAN(0,0,1,1);
   VIDEO(0,0,1,1,PIC1[0],2↑I);
   END;
  FOR J←1,2,3 DO DPYUP(SYNMAP(I-PIC[BYBI]+6));
  END;
 OUTSTR("WRITING ");
 IF W≠0 THEN PUTPFL(PIC1[0],"TST1.PIC") ELSE PUTPFL(PIC[0],"TST1.PIC");
 OUTSTR("DONE"&'15&'12);
 END;

END;